Canadian Geographic Explorer/Canadian Geographic Explorer.iso/pc/riddler.dxr/00030_Play Question audio.ls

Text File | 1996-10-03 | 866 b | 19 lines

on exitFrame
  global gVoiceChannel, gCurrQString, gPathToSound, fileDelimiter, gOrder, gSoundFXChannel, gValue, gCategory, gCatSprite, gValueSprite
  if not (the puppet of sprite gCatSprite) then
    puppetSprite(gCatSprite, 1)
  end if
  set the memberNum of sprite gCatSprite to the number of member ("cat" & gCategory & " half") of castLib "categories and point values"
  if not (the puppet of sprite gValueSprite) then
    puppetSprite(gValueSprite, 1)
  end if
  set the memberNum of sprite gValueSprite to the number of member ("cat" & gCategory & "-" & gValue & " half") of castLib "categories and point values"
  updateStage()
  sound playFile gVoiceChannel, gPathToSound & "qanda" & fileDelimiter & "q" & gCurrQString & ".aif"
  sound playFile gSoundFXChannel, gPathToSound & "soundFX" & fileDelimiter & "Ticking.aif"
end

on keyDown
  BuzzInHandler()
end